From 4be1d460883bc7386caf514f1817d09238a2754d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 12 Jun 1993 07:19:24 +0000 Subject: [PATCH] (Fexpt): New local `val' for making integer to return. --- src/floatfns.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/floatfns.c b/src/floatfns.c index ca50a920f3c..90a2186d3f6 100644 --- a/src/floatfns.c +++ b/src/floatfns.c @@ -406,7 +406,8 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0, (XTYPE (arg2) == Lisp_Int)) /* don't promote, if both are ints */ { /* this can be improved by pre-calculating */ int acc, x, y; /* some binary powers of x then accumulating */ - /* these, thereby saving some time. -wsr */ + Lisp_Object val; + x = XINT (arg1); y = XINT (arg2); acc = 1; @@ -431,8 +432,8 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0, y = (unsigned)y >> 1; } } - XSET (x, Lisp_Int, acc); - return x; + XSET (val, Lisp_Int, acc); + return val; } f1 = (XTYPE (arg1) == Lisp_Float) ? XFLOAT (arg1)->data : XINT (arg1); f2 = (XTYPE (arg2) == Lisp_Float) ? XFLOAT (arg2)->data : XINT (arg2); -- 2.30.2